www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_chk_add_biao_to_model.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->



<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="modelsys_inc/D_model_class.asp"-->

<!--#include file=../../inc/new_md5.asp-->
<%
AJAXshowLoader()

%>

<%

if qx_if_max=0 then


response.redirect "../D_suodinguser.asp"
end if
%>


<%



set filea=new Cls_FSO


biaoname=trim(request("biaoname"))
xmbeizhu=trim(request("xmbeizhu"))


b_err=0



if biaoname="" then

%>
<script language=javascript>
alert("数据库表名 不能为空");

history.go(-1);


</script>

<%
response.end
b_err=1

end if

for ia1=1 to clng(request("lent"))
if lcase(trim(request("zdname"&cstr(ia1))))="id" then
b_err=1
%>
<script language=javascript>
alert("系统发现某个字段名输入了id,数据库表字段名 不能为id,id已被系统使用");

history.go(-1);


</script>

<%
response.end

exit for
end if
next


for ia1=1 to clng(request("lent"))
if lcase(trim(request("zdname"&cstr(ia1))))<>"" and trim(request("zdbmname"&cstr(ia1)))=""   then
b_err=1
%>
<script language=javascript>
alert("系统发现某个字段名输入框里输入了字段名,但是没同时在其字段别名输入框里输入值，字段别名不能为空");

history.go(-1);


</script>

<%
response.end

exit for
end if
next







for ia1=1 to (clng(request("lent"))-1)
ia22=ia1+1
for ia2=ia22 to clng(request("lent"))
if lcase(trim(request("zdname"&cstr(ia1))))=lcase(trim(request("zdname"&cstr(ia2)))) and trim(request("zdname"&cstr(ia1)))<>""  then
b_err=1
%>
<script language=javascript>
alert("系统发现某两个或几个字段名输入框里输入了一样的字段名，字段名不能重复");

history.go(-1);


</script>

<%
response.end

exit for
end if
next
next





ycodenn=0
for ia1=1 to clng(request("lent"))
if cstr(trim(request("zdtype"&cstr(ia1))))="10" then
ycodenn=ycodenn+1
end if
next

if ycodenn>1 then
b_err=1
%>
<script language=javascript>
alert("系统发现字段类型为验证码的字段数大于1，必须只存在一个或0个字段类型为验证码的字段");

history.go(-1);


</script>

<%
response.end
end if





set rs11=server.CreateObject("adodb.recordset")
       
rs11.open "select * from ND_models_reg where id="&request("modelid"),conn,1,1

biao_rnd_qianzhui=rs11("all_biao_rnd_qianzhui")
model_folder_path=rs11("model_folder_path_name")








if is_exist_biao("["&biao_rnd_qianzhui&biaoname&"]")=1 then

b_err=1
%>
<script language=javascript>
alert("以此子模型数据库表名为表名的表已存在，请换一个子模型数据库表名");

history.go(-1);


</script>

<%
response.end

end if




if b_err=0 then



if request("lent")<>"" then
leentta=clng(request("lent"))
else
leentta=0
end if



createTableSql="CREATE TABLE ["&biao_rnd_qianzhui&biaoname&"] ([id] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"

ziduanxmlss=""

for iaa=1 to leentta

zdnamea=request("zdname"&cstr(iaa))
zdbmnamea=request("zdbmname"&cstr(iaa))
zdtypea=cstr(request("zdtype"&cstr(iaa)))
zcixu=cstr(request("ahcixu"&cstr(iaa)))
zdadminpages=cstr(request("zdadminpages"&cstr(iaa)))
ilistadminpage=cstr(request("ilistadminpage"&cstr(iaa)))
isearchadminpage=cstr(request("isearchadminpage"&cstr(iaa)))




if zdnamea<>"" and zdbmnamea<>"" and zdtypea<>"no" and zcixu<>"" then



'----------------------------------------------------------------
lena=-123


if zdtypea="1" then
lena=3
end if

if zdtypea="2" then
lena=3
end if

if zdtypea="3" then
lena=5
end if

if zdtypea="4" then
lena=1
end if

if zdtypea="5" then
lena=1
end if


if zdtypea="6" then
lena=1
end if

if zdtypea="7" then
lena=3
end if

if zdtypea="8" then
lena=1
end if

if zdtypea="9" then
lena=1
end if


if zdtypea="10" then
lena=0
end if

if zdtypea="11" then
lena=3
end if

if zdtypea="12" then
lena=0
end if

if zdtypea="13" then
lena=0
end if

if zdtypea="14" then
lena=0
end if


'-------------------15
if zdtypea="15" then




if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h15_a1_"&cstr(iaa)))&"]")=1 and (is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h15_a1_"&cstr(iaa)))&"]","[parent_id_list]")=0 or is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h15_a1_"&cstr(iaa)))&"]","[deepth]")=0) then

b_err=1
%>
<script language=javascript>
alert("字段"&cstr(iaa)&"里设置的分类表已经存在于数据库了，且这个已存在的表不是分类表的表结构,无法使用,请重新设置分类表表名")
history.go(-1);


</script>

<%
response.end

else
if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h15_a1_"&cstr(iaa)))&"]")=0 then

call exe_sqls(get_fenlei_biao_sql("["&biao_rnd_qianzhui&trim(request("h15_a1_"&cstr(iaa)))&"]"))

end if

end if


lena=2


end if


'-------------------15


if zdtypea="16" then







'-------------------16

if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h16_a1_"&cstr(iaa)))&"]")=1 and is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h16_a1_"&cstr(iaa)))&"]","[Specialname]")=0 then

b_err=1
%>
<script language=javascript>
alert("字段"&cstr(iaa)&"里设置的专题表已经存在于数据库了，且这个已存在的表不是专题表的表结构,无法使用,请重新设置专题表表名")
history.go(-1);


</script>

<%
response.end

else
if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h16_a1_"&cstr(iaa)))&"]")=0 then

call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(request("h16_a1_"&cstr(iaa)))&"]"))

end if

end if

'-------------------16



lena=2

end if

if zdtypea="17" then
lena=0
end if

if zdtypea="18" then
lena=0
end if

if zdtypea="19" then
lena=0
end if


if zdtypea="21" then
lena=2
end if

if zdtypea="22" then
lena=2
end if

if zdtypea="22" then
lena=2
end if

if zdtypea="23" then
lena=2
end if

if zdtypea="25" then
lena=4
end if

if zdtypea="26" then
lena=3
end if


if zdtypea="27" then









'-------------------27

if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h27_a1_"&cstr(iaa)))&"]")=1 and is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h27_a1_"&cstr(iaa)))&"]","[Specialname]")=0 then

b_err=1
%>
<script language=javascript>
alert("字段"&cstr(iaa)&"里设置的表已经存在于数据库了，且这个已存在的表不是 复选框配置表 的表结构,无法使用,请重新设置复选框配置表表名")
history.go(-1);


</script>

<%
response.end

else
if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h27_a1_"&cstr(iaa)))&"]")=0 then

call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(request("h27_a1_"&cstr(iaa)))&"]"))

end if

end if

'-------------------27









lena=2


end if

if zdtypea="29" then
lena=1
end if

if zdtypea="30" then
lena=5
end if

cangssd=""
if lena<>-123 then

for icc=1 to lena

cangssd=cangssd&request("h"&zdtypea&"_a"&cstr(icc)&"_"&cstr(iaa))&"|$aspcpu_a$|"

next

if lena>=1 then
cangssd=left(cangssd,len(cangssd)-12)
end if

cangssa=cangssd

end if



'----------

if zdtypea="20" then
cangssd=""
for icc1=1 to clng(request("len_selectvlist_"&cstr(iaa)))

if request("h20_a1_"&cstr(iaa)&"_"&cstr(icc1))<>"" and request("h20_a1_"&cstr(iaa)&"_"&cstr(icc1)&"_v")<>"" then

cangssd=cangssd&request("h20_a1_"&cstr(iaa)&"_"&cstr(icc1))&"|$aspcpu_b$|"&request("h20_a1_"&cstr(iaa)&"_"&cstr(icc1)&"_v")&"|$aspcpu_a$|"

end if

next

if clng(request("len_selectvlist_"&cstr(iaa)))>=1 then
cangssd=left(cangssd,len(cangssd)-12)
end if

cangssa=cangssd

end if

'----------

if zdtypea="28" then



cangssd=""
for icc3=1 to clng(request("len_radiovlist_"&cstr(iaa)))

if request("h28_a1_"&cstr(iaa)&"_"&cstr(icc3))<>"" and request("h28_a1_"&cstr(iaa)&"_"&cstr(icc3)&"_v")<>"" then

cangssd=cangssd&request("h28_a1_"&cstr(iaa)&"_"&cstr(icc3))&"|$aspcpu_b$|"&request("h28_a1_"&cstr(iaa)&"_"&cstr(icc3)&"_v")&"|$aspcpu_a$|"

end if

next

if clng(request("len_radiovlist_"&cstr(iaa)))>=1 then
cangssd=left(cangssd,len(cangssd)-12)
end if


cangssa=cangssd

end if



'----------start piliangkuang-------------------------------------********************


if zdtypea="24" then


'以|$aspcpu_g$|分隔各列


org_h=request("h24_a2_"&cstr(iaa))

max_h=request("h24_a3_"&cstr(iaa))

can_del_h=request("h24_a4_"&cstr(iaa))

pcangssd=org_h&","&max_h&","&can_del_h&"|$aspcpu_f$|"
                                    

have_lie=0

for icc2=1 to clng(request("len_piliangvlist_"&cstr(iaa)))



possaa="_piangliang_"&cstr(iaa)&"_"&cstr(icc2)


pzdbmnamea=request("h24_a1_"&cstr(iaa)&"_"&cstr(icc2))
pzdtypea=cstr(request("zdtype"&cstr(possaa)))
pzcixu=cstr(request("ecixu"&cstr(possaa)))


if pzdbmnamea<>"" and pzdtypea<>"no" and pzcixu<>"" then

'***************1
lena=-123


if pzdtypea="1" then
lena=3
end if

if pzdtypea="2" then
lena=3
end if

if pzdtypea="3" then
lena=5
end if

if pzdtypea="4" then
lena=1
end if

if pzdtypea="5" then
lena=1
end if


if pzdtypea="6" then
lena=1
end if

if pzdtypea="7" then
lena=3
end if

if pzdtypea="8" then
lena=1
end if

if pzdtypea="9" then
lena=1
end if


if pzdtypea="10" then
lena=0
end if

if pzdtypea="11" then
lena=3
end if

if pzdtypea="12" then
lena=0
end if

if pzdtypea="13" then
lena=0
end if

if pzdtypea="14" then
lena=0
end if


if pzdtypea="15" then



if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h15_a1_"&possaa))&"]")=1 and (is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h15_a1_"&possaa))&"]","[parent_id_list]")=0 or is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h15_a1_"&possaa))&"]","[deepth]")=0) then

b_err=1
%>
<script language=javascript>
alert("字段"&cstr(iaa)&"里第"&cstr(icc2)&"列里 设置的分类表已经存在于数据库了，且这个已存在的表不是分类表的表结构,无法使用,请重新设置分类表表名")
history.go(-1);


</script>

<%
response.end

else
if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h15_a1_"&possaa))&"]")=0 then

call exe_sqls(get_fenlei_biao_sql("["&biao_rnd_qianzhui&trim(request("h15_a1_"&possaa))&"]"))

end if

end if




'-------------------15


lena=2
end if


if pzdtypea="16" then




'-------------------16

if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h16_a1_"&possaa))&"]")=1 and is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h16_a1_"&possaa))&"]","[Specialname]")=0 then

b_err=1
%>
<script language=javascript>
alert("字段"&cstr(iaa)&"里第"&cstr(icc2)&"列里 设置的专题表已经存在于数据库了，且这个已存在的表不是专题表的表结构,无法使用,请重新设置专题表表名")
history.go(-1);


</script>

<%
response.end

else
if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h16_a1_"&possaa))&"]")=0 then

call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(request("h16_a1_"&possaa))&"]"))

end if

end if

'-------------------16







lena=2


end if

if pzdtypea="17" then
lena=0
end if

if pzdtypea="18" then
lena=0
end if

if pzdtypea="19" then
lena=0
end if


if pzdtypea="21" then
lena=2
end if

if pzdtypea="22" then
lena=2
end if

if pzdtypea="22" then
lena=2
end if

if pzdtypea="23" then
lena=2
end if

if pzdtypea="25" then
lena=4
end if

if pzdtypea="26" then
lena=3
end if


if pzdtypea="27" then






'-------------------16

if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h27_a1_"&possaa))&"]")=1 and is_exist_biao_lie("["&biao_rnd_qianzhui&trim(request("h27_a1_"&possaa))&"]","[Specialname]")=0 then

b_err=1
%>
<script language=javascript>
alert("字段"&cstr(iaa)&"里第"&cstr(icc2)&"列里 设置的专题表已经存在于数据库了，且这个已存在的表不是专题表的表结构,无法使用,请重新设置专题表表名")
history.go(-1);


</script>

<%
response.end

else
if is_exist_biao("["&biao_rnd_qianzhui&trim(request("h27_a1_"&possaa))&"]")=0 then

call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(request("h27_a1_"&possaa))&"]"))

end if

end if

'-------------------16






lena=2
end if

if pzdtypea="29" then
lena=1
end if

if pzdtypea="30" then
lena=5
end if


if lena<>-123 then


for icc=1 to lena

pcangssd=pcangssd&request("h"&pzdtypea&"_a"&cstr(icc)&"_"&cstr(possaa))&"|$aspcpu_a$|"

next

if lena>=1 then
pcangssd=left(pcangssd,len(pcangssd)-12)
end if



end if



'----------

if pzdtypea="20" then

for icc1=1 to clng(request("len_selectvlist_"&cstr(possaa)))

if request("h20_a1_"&cstr(possaa)&"_"&cstr(icc1))<>"" and request("h20_a1_"&cstr(possaa)&"_"&cstr(icc1)&"_v")<>"" then

pcangssd=pcangssd&request("h20_a1_"&cstr(possaa)&"_"&cstr(icc1))&"|$aspcpu_b$|"&request("h20_a1_"&cstr(possaa)&"_"&cstr(icc1)&"_v")&"|$aspcpu_a$|"

end if

next

if clng(request("len_selectvlist_"&cstr(possaa)))>=1 then
pcangssd=left(pcangssd,len(pcangssd)-12)
end if

end if

'----------

if pzdtypea="28" then



for icc3=1 to clng(request("len_radiovlist_"&cstr(possaa)))

if request("h28_a1_"&cstr(possaa)&"_"&cstr(icc3))<>"" and request("h28_a1_"&cstr(possaa)&"_"&cstr(icc3)&"_v")<>"" then

pcangssd=pcangssd&request("h28_a1_"&cstr(possaa)&"_"&cstr(icc3))&"|$aspcpu_b$|"&request("h28_a1_"&cstr(possaa)&"_"&cstr(icc3)&"_v")&"|$aspcpu_a$|"

end if

next

if clng(request("len_radiovlist_"&cstr(possaa)))>=1 then
pcangssd=left(pcangssd,len(pcangssd)-12)
end if




end if

'***************end 1
have_lie=1

pcangssd=pcangssd&"|$aspcpu_r1$|"&pzdbmnamea&"|$aspcpu_r1$|"&pzdtypea&"|$aspcpu_r1$|"&pzcixu&"|$aspcpu_g$|"
'             参数，字段名，字段类型，次序的分隔符                                                     列分隔符

end if


next

if have_lie=1 then
pcangssd=left(pcangssd,len(pcangssd)-12)
end if

cangssa=pcangssd

end if

'----------end piliangkuang-------------------------------------********************









'====================================================================

if zdtypea="1" then
createTableSql=createTableSql&zdnamea&" text,"

end if
if zdtypea="2" then
createTableSql=createTableSql&zdnamea&" varchar(80),"

end if

if zdtypea="3" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="4" then
createTableSql=createTableSql&zdnamea&" varchar(200),"

end if

if zdtypea="5" then
createTableSql=createTableSql&zdnamea&" varchar(30),"

end if
if zdtypea="6" then
createTableSql=createTableSql&zdnamea&" varchar(30),"

end if


if zdtypea="7" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="8" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="9" then
createTableSql=createTableSql&zdnamea&" text,"

end if


if zdtypea="10" then

end if

if zdtypea="11" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="12" then
createTableSql=createTableSql&zdnamea&" varchar(10),"

end if

if zdtypea="13" then
createTableSql=createTableSql&zdnamea&" varchar(70),"

end if

if zdtypea="14" then
createTableSql=createTableSql&zdnamea&" varchar(80),"

end if

if zdtypea="15" then
createTableSql=createTableSql&zdnamea&" varchar(50),"

end if

if zdtypea="16" then
createTableSql=createTableSql&zdnamea&" text,"

end if


if zdtypea="17" then
createTableSql=createTableSql&zdnamea&" varchar(20),"

end if

if zdtypea="18" then
createTableSql=createTableSql&zdnamea&" varchar(20),"

end if

if zdtypea="19" then
createTableSql=createTableSql&zdnamea&" varchar(20),"

end if

if zdtypea="20" then
createTableSql=createTableSql&zdnamea&" varchar(240),"

end if

if zdtypea="21" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="22" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="23" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="24" then
createTableSql=createTableSql&zdnamea&" text,"

end if


if zdtypea="25" then
createTableSql=createTableSql&zdnamea&" varchar(80),"

end if

if zdtypea="26" then
createTableSql=createTableSql&zdnamea&" varchar(200),"

end if

if zdtypea="27" then
createTableSql=createTableSql&zdnamea&" text,"

end if

if zdtypea="28" then
createTableSql=createTableSql&zdnamea&" varchar(240),"

end if

if zdtypea="29" then

hzd_lx=cstr(request("h29_a1_"&cstr(iaa)))
if hzd_lx="text" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if hzd_lx="bool" then
createTableSql=createTableSql&zdnamea&" varchar(10)," '不能为int，以免添加页传入空值到int字段里而出错
end if
if hzd_lx="time" then
createTableSql=createTableSql&zdnamea&" varchar(60)" '不能为int，以免添加页传入空值到int字段里而出错
end if
if hzd_lx="num1" then
createTableSql=createTableSql&zdnamea&" varchar(30)," '不能为int，以免添加页传入空值到int字段里而出错
end if
if hzd_lx="num2" then
createTableSql=createTableSql&zdnamea&" varchar(30)," '不能为int，以免添加页传入空值到int字段里而出错
end if


end if



if zdtypea="30" then
createTableSql=createTableSql&zdnamea&" text,"
end if


if zdtypea="31" then
createTableSql=createTableSql&zdnamea&" varchar(200),"
end if


ziduanxmlss=ziduanxmlss&zdnamea&"$aspcpu1$"&zcixu&"$aspcpu1$"&zdadminpages&"$aspcpu1$"&ilistadminpage&"$aspcpu1$"&isearchadminpage&"$aspcpu1$"&zdbmnamea&"$aspcpu1$"&zdtypea&"$aspcpu1$"&cangssa&"$aspcpu_bss_2$"
'                           0                 1                 2                           3                            4                        5                    6                  7




end if


next


'去掉最后一个逗号
createTableSql=left(createTableSql,len(createTableSql)-1)
createTableSql=createTableSql&")"



if ziduanxmlss<>"" then
ziduanxmlss=left(ziduanxmlss,len(ziduanxmlss)-14)
end if


ziduanxmlss=ziduanxmlss&"|$aspcpu_kkk$|"&biaoname&"|$aspcpu_hh$|"&xmbeizhu&"|$aspcpu_hh$|"&request("adminpagextype")&"|$aspcpu_hh$|"&request("admintyy")&"|$aspcpu_hh$|"&request("admintyyh")&"|$aspcpu_hh$|"&request("admintyyw")&"|$aspcpu_hh$|"&request("ppaurl")&"|$aspcpu_hh$|"&request("onsbt")&"|$aspcpu_hh$|"&request("cstasptj")&"|$aspcpu_hh$|"&request("onsbt2")&"|$aspcpu_hh$|"&request("cstaspxg")&"|$aspcpu_hh$|"&request("tjcly")&"|$aspcpu_hh$|"&request("xgcly")&"|$aspcpu_hh$|"&request("sccly")
'                                              0表名            1备注                               2子模型类型                                3是否会员后台可调用                       4height                                5 width                     6 huiyuan_iframe_url              7 添加页自定义onsubmit                  8 添加页自定义                   9 修改页自定义onsubmit       10  修改页自定义                     11 do_add_page_custom         12 do_edit_page_custom             13do_del_page_custom                  


ziduanxmlss=ziduanxmlss&"|$aspcpu_hh$|"&request("lispg_edit")&"|$aspcpu_hh$|"&request("lispg_del")
'                                         内容列表页菜单项-修改               内容列表页菜单项-删除



'自定义管理页
p_xmls=""
for icc7=1 to clng(request("len_cstpagett"))

mname=request("cstpagett_"&cstr(icc7))
p_is_show_in_menu=request("cstpagett_"&cstr(icc7)&"_c")
pid=request("cstpagett_"&cstr(icc7)&"_pid")
if mname<>"" and pid<>"" then
p_xmls=p_xmls&mname&"|$aspcpu_g1$|"&p_is_show_in_menu&"|$aspcpu_g1$|"&pid&"|$aspcpu_g2$|"
end if

next
if p_xmls<>"" then
p_xmls=left(p_xmls,len(p_xmls)-13)
end if





menu_xmls=""
for icc8=1 to clng(request("len_listxmtt"))

mname=request("listxmtt_"&cstr(icc8))
pid=request("listxmtt_"&cstr(icc8)&"_pid")

if mname<>"" and pid<>"" then
menu_xmls=menu_xmls&mname&"|$aspcpu_g1$|"&pid&"|$aspcpu_g2$|"
end if
next
if menu_xmls<>"" then
menu_xmls=left(menu_xmls,len(menu_xmls)-13)
end if



ziduanxmlss=ziduanxmlss&"|$aspcpu_hh$|"&p_xmls&"|$aspcpu_hh$|"&menu_xmls&"|$aspcpu_hh$|"&request("adminnamea")





call exe_sqls(createTableSql)

call add_zimodel_xml(ziduanxmlss,"../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile)


call createfile("../../Model/Models/"&model_folder_path&"/"&"is_need_complied.asp","1",true)

%>



<script language=javascript>

alert("添加子模型成功，点击确定开始后台子模型的编译来刷新本后台模型生成的后台");


self.location="D_complie_all_zimodel_before.asp?modelid=<%=request("modelid")%>&callbackurl=D_admin_zimodels.asp$wenhao$modelid=<%=request("modelid")%>";


</script>


<%


end if
%>

<%
AJAXcloseLoader()
%>